home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 2.iso / programr / ptrp25dm.zip / ETEST6.TRP < prev    next >
Text File  |  1995-01-17  |  436b  |  18 lines
  1. procedure main
  2.         if (false) 
  3.                 writeln('A');
  4.                 if (true)
  5.                         writeln('E')
  6.                 else
  7.                         writeln('F');
  8.                 endif
  9.         else
  10.                 if (false)
  11.                         writeln('B')
  12.                 else
  13.                         writeln('C');
  14.                 endif
  15.                 writeln('D');
  16.         endif
  17. endProc
  18.